(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    251894,       5028]
NotebookOptionsPosition[     31716,        844]
NotebookOutlinePosition[    242976,       4818]
CellTagsIndexPosition[    242367,       4797]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Definition",
 Cell[BoxData[
  TemplateBox[{"Definition",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Define your function using the name above. All definitions, including \
dependencies, will be included in the resource function when it is generated. \
Additional cells can be added and definitions can be given for multiple input \
cases.\n\nThis section should be evaluated before evaluating creating the \
Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDefinition"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "5edc7bcf-4625-44df-8d87-1b456e4f4ca6"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Definition",
 CellID->608264297,ExpressionUUID->"072aa288-6ca3-4eee-a1cb-e4b16779df78"],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 Deletable->False,
 CellTags->"Documentation",
 CellID->855965831,ExpressionUUID->"c715c3f8-c8ed-4332-893a-567034d1eef6"],

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  TemplateBox[{"Usage",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Document every accepted input usage case. Use Enter to create new \
cases as needed.\n\nEach usage should contain a brief explanation saying what \
the function does for the given input structure.\n\nSee existing \
documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoUsage"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "085ba91b-7250-4f03-96b6-c960f3e40bfb"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"UsageInputs",
 CellTags->"Usage",
 CellID->694807545,ExpressionUUID->"e76b93aa-2d83-4156-becf-6a2a21a33b33"],

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  TemplateBox[{"Details & Options",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a detailed explanation of how the function is used. Add multiple \
cells including tables and hyperlinks as needed. Typical information \
includes: acceptable inputs, result formats, options specifications, and \
background information.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDetailsOptions"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "e42315e6-4014-4635-a342-88830ea70036"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Notes",
 CellTags->"Details & Options",
 CellID->29639701,ExpressionUUID->"326d19d1-a093-450d-8f0f-06eb7d859541"]
}, Open  ]],

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  TemplateBox[{"Examples",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Demonstrate how to use the function. Examples should start with the \
most basic use case. Each example should be described using text cells. Use \
\"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\
Example groups can optionally be delimited by inserting page breaks between \
them (affects example count on documentation page).\n\nSee existing \
documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoExamples"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "8a7541df-31c6-44b5-9af3-ab62ee6d8ef9"]
}], "Section",
 Deletable->False,
 CellTags->"Examples",
 CellID->847663398,ExpressionUUID->"89afe010-d634-4ade-a588-eb6cead8d3bc"],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 Deletable->False,
 CellTags->"Source & Additional Information",
 CellID->318391102,ExpressionUUID->"1ee54c9a-4450-465c-be0e-9eb3a4cbf44e"],

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  TemplateBox[{"Contributed By",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Name of the person, people or organization that should be publicly \
credited with contributing the function.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoContributedBy"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "4b4711e4-5bb7-4d16-b232-096e14520bff"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Contributed By",
 CellID->757508554,ExpressionUUID->"d27f5e6f-9f60-452b-bca5-4b8264657197"],

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  TemplateBox[{"Keywords",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List relevant terms that should be used to include this resource in \
search results.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoKeywords"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "5066bf10-6169-4400-8274-16e36561805f"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Keywords",
 CellID->246422893,ExpressionUUID->"964efffa-0617-40b5-8b87-13d3b5326d99"],

Cell[TextData[{
 "Related Symbols",
 Cell[BoxData[
  TemplateBox[{"Related Symbols",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List related Wolfram Language symbols. Include up to twenty \
documented, system-level symbols.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedSymbols"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "8e3efc4c-f414-46f6-9f81-8fc1ed03a32b"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Symbols",
 CellID->911170439,ExpressionUUID->"c40e6377-3cd9-4c7d-b096-dd764131f6a3"],

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  TemplateBox[{"Related Resource Objects",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Names of published resource objects from any Wolfram repository that \
are related to this resource.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "f4f10559-5edb-41a6-b9b6-95e06d6eeab8"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Resource Objects",
 CellID->217060377,ExpressionUUID->"0dde8342-f61a-4ff4-8b54-87ff57be0acd"],

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  TemplateBox[{"Source/Reference Citation",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Citation for original source of the function or its components. For \
example, original publication of an algorithm or public code repository.", 
        "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, 
     CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "2af36221-be66-4270-bbef-70b1c7bfe627"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Source/Reference Citation",
 CellID->967310595,ExpressionUUID->"3ca18554-171e-4931-adee-a5834633dfb8"],

Cell[TextData[{
 "Links",
 Cell[BoxData[
  TemplateBox[{"Links",Cell[
     BoxData[
      FrameBox[
       Cell[
       "URLs or hyperlinks for external information related to the function.",
         "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "4926ae21-bcb8-46a0-87de-1be652c9faef"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Links",
 CellID->593846556,ExpressionUUID->"8e1df5b4-b7da-4700-a4f5-a6b70dda4b80"],

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  TemplateBox[{"Tests",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Optional list of tests that can be used to verify that the function \
is working properly in any environment.\nTests can be specified as \
Input/Output cell pairs or as literal VerificationTest expressions if you \
need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoTests"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "4575fabe-2421-42f2-9335-ce45e08371fe"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Tests",
 CellID->16051757,ExpressionUUID->"e393b6fc-8cfe-4490-89f3-4ce9bc40038e"]
}, Open  ]],

Cell["Notes", "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Notes",
 CellID->694045252,ExpressionUUID->"d279b7a3-f4bf-43ac-ab4f-d390c104ee84"],

Cell[CellGroupData[{

Cell["RandomRomanNumeral", "Title",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{3.752944719679899*^9},
 CellTags->{"Title", "TabNext"},
 CellID->18217985,ExpressionUUID->"13edfa22-5410-4c30-85d3-b6541b29b900"],

Cell["Gives a randomly generated Roman numeral", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.752944729052986*^9, 3.752944741102105*^9}},
 CellTags->{"Description", "TabNext"},
 CellID->27787318,ExpressionUUID->"23a34cb1-3ca2-4f82-a965-0f354311f22d"],

Cell[CellGroupData[{

Cell[TextData[{
 "Definition",
 Cell[BoxData[
  TemplateBox[{"Definition",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Define your function using the name above. All definitions, including \
dependencies, will be included in the resource function when it is generated. \
Additional cells can be added and definitions can be given for multiple input \
cases.\n\nThis section should be evaluated before evaluating creating the \
Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDefinition"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "301aef7e-d493-4282-bff3-a51bb4f89227"]
}], "Section",
 DefaultNewCellStyle->"Input",
 CellTags->"Definition",
 CellID->40452676,ExpressionUUID->"2d1e81e8-f48d-4ac6-944a-bed18cabef23"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RandomRomanNumeral", "[", "args___", "]"}], ":=", 
  RowBox[{"RomanNumeral", "[", 
   RowBox[{"RandomInteger", "[", "args", "]"}], "]"}]}]], "Input",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{3.752944713421828*^9},
 CellTags->"TabNext",
 CellID->206237809,ExpressionUUID->"484dc103-7ef1-4c30-ab3f-f9d6a53e97f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 CellTags->"Documentation",
 CellID->491847979,ExpressionUUID->"b11c59dd-3adc-46be-8361-83927e8dca25"],

Cell[CellGroupData[{

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  TemplateBox[{"Usage",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Document every accepted input usage case. Use Enter to create new \
cases as needed.\n\nEach usage should contain a brief explanation saying what \
the function does for the given input structure.\n\nSee existing \
documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", 
     CellTags -> {"SectionMoreInfoUsage"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "8f4b91ee-366b-4947-93f1-e66c92202d1a"]
}], "Subsection",
 DefaultNewCellStyle->"UsageInputs",
 CellTags->"Usage",
 CellID->253280348,ExpressionUUID->"aed34a7c-93b3-4b60-9c43-e96895873334"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomRomanNumeral", "[", "]"}]], "UsageInputs",
 CellChangeTimes->{{3.752944747673187*^9, 3.7529447501662245`*^9}, 
   3.752944786149645*^9},
 CellTags->"TabNext",
 CellID->373593035,ExpressionUUID->"aab8cd8f-7c14-4451-9fd4-3d22a9bd94df"],

Cell["give 0 or 1, as a Roman numeral.", "UsageDescription",
 CellChangeTimes->{{3.752944986422654*^9, 3.7529449871416583`*^9}, {
  3.7529450294141254`*^9, 3.752945048174335*^9}},
 CellTags->"TabNext",
 CellID->38868309,ExpressionUUID->"9d2b2691-3452-4b91-a595-8931550b8d62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomRomanNumeral", "[", 
  StyleBox["range",
   FontSlant->"Italic"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.752944747673187*^9, 3.7529447501662245`*^9}, {
  3.752944824902728*^9, 3.7529448254537334`*^9}},
 CellTags->"TabNext",
 CellID->327278934,ExpressionUUID->"0464179c-d1dc-446c-bdb9-23ae1ded379e"],

Cell[TextData[{
 "give a randomly generated Roman numeral, using the given ",
 StyleBox["range",
  FontSlant->"Italic"],
 "."
}], "UsageDescription",
 CellChangeTimes->{{3.752945070686575*^9, 3.752945091710751*^9}},
 CellTags->"TabNext",
 CellID->679413592,ExpressionUUID->"0d727e18-e288-451e-a9b5-b834bc666cc3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomRomanNumeral", "[", 
  StyleBox[
   RowBox[{"range", ",", "n"}],
   FontSlant->"Italic"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.752944747673187*^9, 3.7529447501662245`*^9}, {
  3.752944831333941*^9, 3.75294483281449*^9}},
 CellTags->"TabNext",
 CellID->618558083,ExpressionUUID->"daa580b3-7a9c-45b1-b017-c1f6442f01dd"],

Cell[TextData[{
 "give ",
 StyleBox["n",
  FontSlant->"Italic"],
 " Roman numerals, using ",
 StyleBox["range",
  FontSlant->"Italic"],
 "."
}], "UsageDescription",
 CellChangeTimes->{{3.7529450966297317`*^9, 3.7529451085338287`*^9}},
 CellTags->"TabNext",
 CellID->438097359,ExpressionUUID->"d5eadbf7-a4fe-4273-bbaf-2bed071956dc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  TemplateBox[{"Details & Options",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a detailed explanation of how the function is used. Add multiple \
cells including tables and hyperlinks as needed. Typical information \
includes: acceptable inputs, result formats, options specifications, and \
background information.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDetailsOptions"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "c34445cd-3584-4f5d-9991-bf12de9e6c64"]
}], "Subsection",
 DefaultNewCellStyle->"Notes",
 CellTags->"Details & Options",
 CellID->123126086,ExpressionUUID->"ee43ed8f-02b3-4549-b953-996350822973"],

Cell[CellGroupData[{

Cell[TextData[{
 "If ",
 StyleBox["range",
  FontSlant->"Italic"],
 " is an integer value, then the range goes from 1 to ",
 StyleBox["range",
  FontSlant->"Italic"],
 "."
}], "Notes",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.752945139213561*^9, 3.752945172678834*^9}},
 CellTags->"TabNext",
 CellID->107622986,ExpressionUUID->"1e32b60b-5afb-4ff0-9ecc-eca7480d47dd"],

Cell[TextData[{
 "If ",
 StyleBox["range",
  FontSlant->"Italic"],
 " is a list of two integers {n,m}, then the range goes from ",
 StyleBox["n",
  FontSlant->"Italic"],
 " to ",
 StyleBox["m",
  FontSlant->"Italic"],
 "."
}], "Notes",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.752945139213561*^9, 3.752945229102031*^9}},
 CellTags->"TabNext",
 CellID->201169564,ExpressionUUID->"14f4d6a3-b2d6-49a6-9c45-0eb059abf6e0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  TemplateBox[{"Examples",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Demonstrate how to use the function. Examples should start with the \
most basic use case. Each example should be described using text cells. Use \
\"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\
See existing documentation pages for examples.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", 
     CellTags -> {"SectionMoreInfoExamples"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "acf05cdb-73b2-42e8-b72e-c3be0ae04f8e"]
}], "Section",
 CellTags->"Examples",
 CellID->163631071,ExpressionUUID->"20c05db3-a710-46d4-8708-ebf20ef27b75"],

Cell[CellGroupData[{

Cell["Basic Examples", "Subsection",
 CellID->285421464,ExpressionUUID->"0c65e9f1-9a1b-483b-8786-8630d567a04b"],

Cell["Randomly generate a 0 or 1, as a Roman numeral:", "Text",
 CellChangeTimes->{{3.752945243479147*^9, 3.752945265262885*^9}},
 CellID->221583938,ExpressionUUID->"669c0914-5de2-4d8b-a819-a025cc2deece"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomRomanNumeral", "[", "]"}]], "Input",
 CellChangeTimes->{3.75294500360279*^9},
 CellLabel->"In[25]:=",
 CellID->7099978,ExpressionUUID->"8914f6c3-acad-46a3-83e2-53dd6fc3ce0e"],

Cell[BoxData["\<\"I\"\>"], "Output",
 CellChangeTimes->{{3.7529450043287983`*^9, 3.752945009769844*^9}},
 CellLabel->"Out[25]=",
 CellID->919745518,ExpressionUUID->"74f2241b-c839-4a02-bafa-1a4167ce9680"]
}, Open  ]],

Cell["Generate a Roman numeral in the range 1 to 100:", "Text",
 CellChangeTimes->{{3.752945243479147*^9, 3.7529452912060947`*^9}},
 CellID->759031651,ExpressionUUID->"e9ed8dda-c44a-4424-be5e-7fdeaa92b1f5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomRomanNumeral", "[", "100", "]"}]], "Input",
 CellChangeTimes->{
  3.75294500360279*^9, {3.752945276055971*^9, 3.7529452763589754`*^9}},
 CellLabel->"In[28]:=",
 CellID->10280817,ExpressionUUID->"ee53c857-1bd1-449f-bacc-a6d459391b1c"],

Cell[BoxData["\<\"XCVI\"\>"], "Output",
 CellChangeTimes->{{3.7529450043287983`*^9, 3.752945009769844*^9}, 
   3.7529452937311163`*^9},
 CellLabel->"Out[28]=",
 CellID->785075825,ExpressionUUID->"c7eac5f8-ac85-4a96-97cb-591100000aee"]
}, Open  ]],

Cell["Generate 10 Roman numerals in the range 1 to 100:", "Text",
 CellChangeTimes->{{3.752945243479147*^9, 3.75294530698274*^9}},
 CellID->934327856,ExpressionUUID->"35dd5d6c-00bb-45f6-977e-7cfde68fadff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RandomRomanNumeral", "[", 
  RowBox[{"100", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{
  3.75294500360279*^9, {3.752945276055971*^9, 3.7529452763589754`*^9}, {
   3.7529453094237595`*^9, 3.7529453096547613`*^9}},
 CellLabel->"In[29]:=",
 CellID->11970743,ExpressionUUID->"c46c20c3-374e-48fe-bd5f-68eeecfa5b9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"LXX\"\>", ",", "\<\"V\"\>", ",", "\<\"LVIII\"\>", 
   ",", "\<\"XXII\"\>", ",", "\<\"XXVI\"\>", ",", "\<\"XVIII\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"XCI\"\>", ",", "\<\"L\"\>", 
   ",", "\<\"LXXXIX\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.7529450043287983`*^9, 3.752945009769844*^9}, {
  3.7529452937311163`*^9, 3.75294531074777*^9}},
 CellLabel->"Out[29]=",
 CellID->289327720,ExpressionUUID->"6d4525e5-82c9-4fa5-9745-570d35305410"]
}, Open  ]]
}, Open  ]],

Cell["Scope", "Subsection",
 CellID->267254639,ExpressionUUID->"0812d384-216c-4882-8e65-f512876d176c"],

Cell["Options", "Subsection",
 CellID->1575259,ExpressionUUID->"2edd7383-cc2d-4c1a-8948-ee3ee2586c9e"],

Cell["Applications", "Subsection",
 CellID->20767984,ExpressionUUID->"7456a079-523c-431e-b2b7-73943cab878a"],

Cell["Properties and Relations", "Subsection",
 CellID->461307998,ExpressionUUID->"c0b37364-009b-4878-aefa-a48398570da0"],

Cell["Possible Issues", "Subsection",
 CellID->95944414,ExpressionUUID->"9c327120-bfb3-4108-8868-c4a45a39cf42"],

Cell["Neat Examples", "Subsection",
 CellID->5316679,ExpressionUUID->"d85116ea-7795-4552-baf2-14a2de729190"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 CellTags->"Source & Additional Information",
 CellID->127601628,ExpressionUUID->"63baeb6f-0156-401f-93cc-82e5bf6761ba"],

Cell[CellGroupData[{

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  TemplateBox[{"Contributed By",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Name of the person, people or organization that should be publicly \
credited with contributing the function.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", 
     CellTags -> {"SectionMoreInfoContributedBy"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "fbd8c9ac-4760-4feb-b340-f3558b503a0d"]
}], "Subsection",
 DefaultNewCellStyle->"Text",
 CellTags->"Contributed By",
 CellID->193619321,ExpressionUUID->"ded7ca1c-9d21-4cc4-9397-fde4c2fb019f"],

Cell["Arnoud Buzing", "Text",
 TaggingRules->{
  "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, 
   "StatusMessage" -> ProgressIndicator[Appearance -> "Necklace"]},
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7529453652068224`*^9, 3.7529453684308476`*^9}},
 CellTags->"TabNext",
 CellID->268773406,ExpressionUUID->"bc5ccf28-4f53-4986-882c-f5a4f593e7cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  TemplateBox[{"Keywords",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List relevant terms that should be used to include this resource in \
search results.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", CellTags -> {"SectionMoreInfoKeywords"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "10eab128-8d8b-4b90-a96b-2b9eeabd8a11"]
}], "Subsection",
 DefaultNewCellStyle->"Item",
 CellTags->"Keywords",
 CellID->56929831,ExpressionUUID->"c2606896-898c-482f-8125-bde4d5bf9b93"],

Cell["keyword 1", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->286151546,ExpressionUUID->"ec398385-3224-451b-bbc2-4e3988d8c748"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  TemplateBox[{"Related Resource Objects",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Names of published resource objects from any Wolfram repository that \
are related to this resource.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", 
     CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "aa15d833-84ad-45b8-b40e-5820bee3de34"]
}], "Subsection",
 DefaultNewCellStyle->"Item",
 CellTags->"Related Resource Objects",
 CellID->234336100,ExpressionUUID->"8858e9d4-3bcd-42c5-a8fa-0d66cd5e6b32"],

Cell["GrayCode (resources from any Wolfram repository)", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->96811861,ExpressionUUID->"29ccaaa0-e113-45ac-a4b8-f0597e627ec1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  TemplateBox[{"Source/Reference Citation",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Citation for original source of the function or its components. For \
example, original publication of an algorithm or public code repository.", 
        "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "326d675b-bc6e-4539-9618-6b7663922344"]
}], "Subsection",
 DefaultNewCellStyle->"Text",
 CellTags->"Source/Reference Citation",
 CellID->4373816,ExpressionUUID->"6e952024-3645-495c-a6fc-008122cb4b4e"],

Cell["Source, reference or citation information", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->122131667,ExpressionUUID->"ca73813b-1eff-446c-8c5f-c3e5e76f47e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Links",
 Cell[BoxData[
  TemplateBox[{"Links",Cell[
     BoxData[
      FrameBox[
       Cell[
       "URLs or hyperlinks for external information related to the function.",
         "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     CellTags -> {"SectionMoreInfoLinks"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "647c7d0c-1538-4516-9833-e603165b34b8"]
}], "Subsection",
 DefaultNewCellStyle->"Item",
 CellTags->"Links",
 CellID->443077927,ExpressionUUID->"cdcc4e47-3c86-4fbd-853e-e2ee12723c61"],

Cell["Link to other related material", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->70093026,ExpressionUUID->"73fb7d03-db0d-4990-9f36-53dc5dc235ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  TemplateBox[{"Tests",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Optional list of tests that can be used to verify that the function \
is working properly in any environment.\nTests can be specified as \
Input/Output cell pairs or as literal VerificationTest expressions if you \
need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", CellTags -> {"SectionMoreInfoTests"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "2d52fe3f-ad04-4dbf-8af2-7d644de1b6e3"]
}], "Subsection",
 DefaultNewCellStyle->"Input",
 CellTags->"Tests",
 CellID->349784570,ExpressionUUID->"bca4c195-a2da-4e7c-97bb-dffd30b72e5f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MyFunction", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->152812409,ExpressionUUID->"9e5e8687-9934-403e-9bc9-918fc30ee4f8"],

Cell[BoxData[
 RowBox[{"x", " ", "y"}]], "Output",
 CellLabel->"Out[3]=",
 CellID->111998499,ExpressionUUID->"fdeb9c5b-c6a0-4074-9165-1b41d6c02490"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["Notes", "Section",
 DefaultNewCellStyle->"Text",
 CellTags->"Notes",
 CellID->359397282,ExpressionUUID->"319b933f-9716-423d-85c3-4f78c40af01d"]
}, Open  ]]
},
WindowSize->{775, 872},
WindowMargins->{{Automatic, 226}, {Automatic, 46}},
Visible->True,
DockedCells->{
  Cell[
   BoxData[
    TagBox[
     GridBox[{{
        TagBox[
         GridBox[{{
            GraphicsBox[{
              Thickness[0.022222222222222223`], {
               FaceForm[{
                 RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0.,
                 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 
                45.}, {45., 34.926}, {45., 22.5}}}]}, {
               FaceForm[{
                 RGBColor[1., 1., 1.], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
                 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                 0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {
                 0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
                 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 
                 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                 "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                 26.308999999999997`}, {21.375, 26.258000000000003`}, {21.375,
                  24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {
                 21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 
                 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {
                 24.578, 23.539}, {24.953, 23.914}, {25.418, 23.91}, {29.746, 
                 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 
                 23.078000000000003`}, {30.578, 18.75}, {30.581999999999997`, 
                 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {
                 25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 
                 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {
                 33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 
                 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 
                 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {
                 36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, {
             Background -> RGBColor[0.988235, 0.419608, 0.203922], 
              AspectRatio -> Automatic, ImageSize -> {45., 45.}, 
              PlotRange -> {{0., 45.}, {0., 45.}}}], 
            StyleBox[
            "\"Function Resource Definition Notebook\"", FontFamily -> 
             "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, FontColor -> 
             GrayLevel[1], StripOnInput -> False]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
        "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
        "\[SpanFromLeft]", "\[SpanFromLeft]", 
        ItemBox[
         TemplateBox[{
           StyleBox[
           "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> 
            GrayLevel[1], StripOnInput -> False], 
           "https://resources.wolframcloud.com/FunctionRepository/"}, 
          "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
         False]}, {
        ButtonBox[
         TemplateBox[{
           StyleBox[
           "\"Open Sample Notebook\"", "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"View a completed sample definition notebook\""}, 
          "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            
            FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]]\
), FrameMargins -> {{1, 1}, {0, 0}}, 
         Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
        ButtonBox[
         TemplateBox[{
           StyleBox[
           "\"Style Guidelines\"", "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"Coming soon\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            MessageDialog["Coming soon."]]), FrameMargins -> {{1, 1}, {0, 0}},
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
        TagBox[
         GridBox[{{"\"\"", "\"\""}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxDividers -> {
           "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
          GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, 
          FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
        ActionMenuBox[
         ButtonBox[
          StyleBox[
          "\"Preview \[DownPointer]\"", "Text", FontFamily -> 
           "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
           13, FontColor -> GrayLevel[1], StripOnInput -> False], 
          ButtonFunction :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`showProgress[Null]), 
          FrameMargins -> {{1, 1}, {0, 0}}, 
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
            Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
            "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
          Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
          "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
         "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Preview"]), 
          "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> 
         "Queued"], 
        ActionMenuBox[
         ButtonBox[
          StyleBox[
          "\"Deploy \[DownPointer]\"", "Text", FontFamily -> 
           "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
           13, FontColor -> GrayLevel[1], StripOnInput -> False], 
          ButtonFunction :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`showProgress[Null]), 
          FrameMargins -> {{1, 1}, {0, 0}}, 
          Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
            Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
            "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
              "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
          Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
          "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
         "\"Locally on this computer\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Local"]), 
          "\"For my cloud account\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "Cloud"]), 
          "\"Publicly in the cloud\"" :> (Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "CloudPublic"]), 
          "\"In this session only (without documentation)\"" :> (
           Symbol["System`ResourceFunction"]; 
           FunctionResource`DefinitionNotebook`Private`getResource[
             ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> 
         "Queued"], 
        ItemBox[
         StyleBox[
          DynamicBox[
           ToBoxes[
            CurrentValue[
             EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
            StandardForm]], "Text", 
          GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> 
         False], 
        ButtonBox[
         TemplateBox[{
           StyleBox[
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Thickness[0.06349206349206349], 
                  StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, 
                   FaceForm[
                    RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> 
                   False], 
                  StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, 
                   FaceForm[
                    RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, 
                 ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                 AspectRatio -> Automatic], "\"Submit to Repository\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, 
                "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> 
            "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
            13, FontColor -> GrayLevel[1], StripOnInput -> False], 
           "\"Submit your function to the Wolfram Function Repository\""}, 
          "PrettyTooltipTemplate"], 
         ButtonFunction :> (Symbol["System`ResourceFunction"]; 
          FunctionResource`DefinitionNotebook`Private`showProgress[
            FunctionResource`DefinitionNotebook`Private`submitRepository[
             ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, 
         Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
           Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
           "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
             "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
         Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
         "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
      AutoDelete -> False, 
      GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
          RGBColor[0.988235, 0.419608, 0.203922], 
          RGBColor[0.921569, 0.341176, 0.105882]}}, 
      GridBoxFrame -> {
       "Columns" -> False, 
        "RowsIndexed" -> {
         1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> 
          RGBColor[0.921569, 0.341176, 0.105882]}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, 
      GridBoxSpacings -> {"Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, 
      FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], 
   "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Gives a randomly generated Roman numeral", "Version" -> 
                    None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", "]"}]], "Description" -> 
                    "give 0 or 1, as a Roman numeral."], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["range", FontSlant -> "Italic"], "]"}]], 
                    "Description" -> 
                    TextData[{
                    "give a randomly generated Roman numeral, using the given \
", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"range", ",", "n"}], FontSlant -> "Italic"], 
                    "]"}]], "Description" -> TextData[{"give ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " Roman numerals, using ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is an integer value, then the range goes from 1 to ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945172678834*^9}}, CellTags -> "TabNext", CellID -> 
                    107622986], 
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is a list of two integers {n,m}, then the range goes \
from ", 
                    StyleBox["n", FontSlant -> "Italic"], " to ", 
                    StyleBox["m", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945229102031*^9}}, CellTags -> "TabNext", CellID -> 
                    201169564]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["ddzwg_shm", 3, 1]], 30], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/Resources/486/486f238e-ed56-4f9a-b756-2927f0f238f9/\
download/DefinitionData"], "ShortName" -> "RandomRomanNumeral", "SymbolName" -> 
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/Resources/486/486f238e-ed56-4f9a-b756-2927f0f238f9"]}, 
                    "ExampleNotebookData" -> Automatic]]], Selectable -> 
                    False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/user-7053ce31-\
817f-4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"], 
                    SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Mon 21 Jan 2019 12:33:28\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "af56a105-5b84-4994-a403-170c5b946b5a"]), Appearance -> 
                    None, BoxID -> "af56a105-5b84-4994-a403-170c5b946b5a", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Gives a randomly generated Roman numeral", "Version" -> 
                    None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", "]"}]], "Description" -> 
                    "give 0 or 1, as a Roman numeral."], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["range", FontSlant -> "Italic"], "]"}]], 
                    "Description" -> 
                    TextData[{
                    "give a randomly generated Roman numeral, using the given \
", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"range", ",", "n"}], FontSlant -> "Italic"], 
                    "]"}]], "Description" -> TextData[{"give ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " Roman numerals, using ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is an integer value, then the range goes from 1 to ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945172678834*^9}}, CellTags -> "TabNext", CellID -> 
                    107622986], 
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is a list of two integers {n,m}, then the range goes \
from ", 
                    StyleBox["n", FontSlant -> "Italic"], " to ", 
                    StyleBox["m", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945229102031*^9}}, CellTags -> "TabNext", CellID -> 
                    201169564]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["ddzwg_shm", 3, 1]], 30], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/Resources/486/486f238e-ed56-4f9a-b756-2927f0f238f9/\
download/DefinitionData"], "ShortName" -> "RandomRomanNumeral", "SymbolName" -> 
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/Resources/486/486f238e-ed56-4f9a-b756-2927f0f238f9"]}, 
                    "ExampleNotebookData" -> Automatic]]], Selectable -> 
                    False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/user-7053ce31-\
817f-4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"], 
                    SelectWithContents -> True], "]"}]]}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Mon 21 Jan 2019 12:33:28\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "af56a105-5b84-4994-a403-170c5b946b5a"]), Appearance -> 
                    None, BoxID -> "af56a105-5b84-4994-a403-170c5b946b5a", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Cloud object:\"", 
                    TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/user-7053ce31-817f-4643-aec1-\
eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/user-7053ce31-\
817f-4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"], 
                    SelectWithContents -> True]]}, "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Visit web page:\"", 
                    TemplateBox[{
                    TagBox[
                    "\"https://www.wolframcloud.com/objects/user-7053ce31-\
817f-4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    Short[#, 0.75]& ], 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]]], Selectable -> False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"486f238e-ed56-4f9a-b756-2927f0f238f9\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]], Selectable -> False, Editable -> 
                    False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Grid[{{"Published to the cloud", 
                Hyperlink[
                "\[RightGuillemet]", 
                 "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"]}}, 
              Spacings -> 0.25], 
             Grid[{{"ResourceFunction:", 
                RawBoxes[
                 TemplateBox[{
                   InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[
                    0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Gives a randomly generated Roman numeral", "Version" -> 
                    None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", "]"}]], "Description" -> 
                    "give 0 or 1, as a Roman numeral."], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["range", FontSlant -> "Italic"], "]"}]], 
                    "Description" -> 
                    TextData[{
                    "give a randomly generated Roman numeral, using the given \
", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"range", ",", "n"}], FontSlant -> "Italic"], 
                    "]"}]], "Description" -> TextData[{"give ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " Roman numerals, using ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is an integer value, then the range goes from 1 to ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945172678834*^9}}, CellTags -> "TabNext", CellID -> 
                    107622986], 
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is a list of two integers {n,m}, then the range goes \
from ", 
                    StyleBox["n", FontSlant -> "Italic"], " to ", 
                    StyleBox["m", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945229102031*^9}}, CellTags -> "TabNext", CellID -> 
                    201169564]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["ddzwg_shm", 3, 1]], 30], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/Resources/486/486f238e-ed56-4f9a-b756-2927f0f238f9/\
download/DefinitionData"], "ShortName" -> "RandomRomanNumeral", "SymbolName" -> 
                    
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/Resources/486/486f238e-ed56-4f9a-b756-2927f0f238f9"]}, 
                    "ExampleNotebookData" -> Automatic]]], Selectable -> 
                    False], 
                   RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/user-7053ce31-\
817f-4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"], 
                    SelectWithContents -> True], "]"}]]}, 
                  "ClickToCopyTemplate"]]}}], "", 
             Style[
             "Mon 21 Jan 2019 12:33:28", FontSlant -> Italic, FontColor -> 
              GrayLevel[0.5], FontSize -> 0.9 Inherited], 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "af56a105-5b84-4994-a403-170c5b946b5a"], Appearance -> None, 
               BoxID -> "af56a105-5b84-4994-a403-170c5b946b5a"], 
              "LinkHand"]}}, ItemSize -> {{
              Scaled[0.35], 
              Scaled[0.35], Fit, Automatic^2}, Automatic}, 
           Alignment -> {{Left, Left, Center, Right, Right}, Center}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Cloud object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/user-7053ce31-817f-4643-aec1-\
eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/user-7053ce31-\
817f-4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"}, 
                    "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"], 
                    SelectWithContents -> True]]}, "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Visit web page:", 
                 Hyperlink[
                  RawBoxes[
                   TagBox[
                   "\"https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral\"", 
                    Short[#, 0.75]& ]], 
                  "https://www.wolframcloud.com/objects/user-7053ce31-817f-\
4643-aec1-eda27051bba6/DeployedResources/Function/RandomRomanNumeral"]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]]], Selectable -> False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"486f238e-ed56-4f9a-b756-2927f0f238f9\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "486f238e-ed56-4f9a-b756-2927f0f238f9", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$486f238eed564f9ab7562927f0f238f9`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]], Selectable -> False, Editable -> 
                    False, SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{25, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Gives a randomly generated Roman numeral", "Version" -> 
                    None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", "]"}]], "Description" -> 
                    "give 0 or 1, as a Roman numeral."], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["range", FontSlant -> "Italic"], "]"}]], 
                    "Description" -> 
                    TextData[{
                    "give a randomly generated Roman numeral, using the given \
", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"range", ",", "n"}], FontSlant -> "Italic"], 
                    "]"}]], "Description" -> TextData[{"give ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " Roman numerals, using ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is an integer value, then the range goes from 1 to ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945172678834*^9}}, CellTags -> "TabNext", CellID -> 
                    107622986], 
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is a list of two integers {n,m}, then the range goes \
from ", 
                    StyleBox["n", FontSlant -> "Italic"], " to ", 
                    StyleBox["m", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945229102031*^9}}, CellTags -> "TabNext", CellID -> 
                    201169564]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 131], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
5bb/5bb42699-7257-4d99-8eca-7c29bb7a85eb/download/DefinitionData"], 
                    "ShortName" -> "RandomRomanNumeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
5bb/5bb42699-7257-4d99-8eca-7c29bb7a85eb"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"], SelectWithContents -> True], 
                    "]"}]]}, "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:46:39\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "4fee4426-245e-4e2f-9345-087472d6539f"]), Appearance -> 
                    None, BoxID -> "4fee4426-245e-4e2f-9345-087472d6539f", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Gives a randomly generated Roman numeral", "Version" -> 
                    None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", "]"}]], "Description" -> 
                    "give 0 or 1, as a Roman numeral."], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["range", FontSlant -> "Italic"], "]"}]], 
                    "Description" -> 
                    TextData[{
                    "give a randomly generated Roman numeral, using the given \
", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"range", ",", "n"}], FontSlant -> "Italic"], 
                    "]"}]], "Description" -> TextData[{"give ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " Roman numerals, using ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is an integer value, then the range goes from 1 to ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945172678834*^9}}, CellTags -> "TabNext", CellID -> 
                    107622986], 
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is a list of two integers {n,m}, then the range goes \
from ", 
                    StyleBox["n", FontSlant -> "Italic"], " to ", 
                    StyleBox["m", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945229102031*^9}}, CellTags -> "TabNext", CellID -> 
                    201169564]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 131], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
5bb/5bb42699-7257-4d99-8eca-7c29bb7a85eb/download/DefinitionData"], 
                    "ShortName" -> "RandomRomanNumeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
5bb/5bb42699-7257-4d99-8eca-7c29bb7a85eb"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"], SelectWithContents -> True], 
                    "]"}]]}, "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   StyleBox[
                   "\"Thu 24 Jan 2019 09:46:39\"", FontSlant -> Italic, 
                    FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited, 
                    StripOnInput -> False], 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "4fee4426-245e-4e2f-9345-087472d6539f"]), Appearance -> 
                    None, BoxID -> "4fee4426-245e-4e2f-9345-087472d6539f", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Center, Right, Right}, 
                   "Rows" -> {{Center}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {
                    Scaled[0.35], 
                    Scaled[0.35], Fit, Automatic^2}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Cloud object:\"", 
                    TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"], SelectWithContents -> 
                    True]]}, "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Visit web page:\"", 
                    TemplateBox[{
                    TagBox[
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", Short[#, 0.75]& ], 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]]], Selectable -> False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"5bb42699-7257-4d99-8eca-7c29bb7a85eb\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]], Selectable -> False, Editable -> 
                    False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Grid[{{"Published to the cloud", 
                Hyperlink[
                "\[RightGuillemet]", 
                 "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"]}}, Spacings -> 0.25], 
             Grid[{{"ResourceFunction:", 
                RawBoxes[
                 TemplateBox[{
                   InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[
                    0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Gives a randomly generated Roman numeral", "Version" -> 
                    None, "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", "]"}]], "Description" -> 
                    "give 0 or 1, as a Roman numeral."], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["range", FontSlant -> "Italic"], "]"}]], 
                    "Description" -> 
                    TextData[{
                    "give a randomly generated Roman numeral, using the given \
", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]], 
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"RandomRomanNumeral\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox[
                    RowBox[{"range", ",", "n"}], FontSlant -> "Italic"], 
                    "]"}]], "Description" -> TextData[{"give ", 
                    StyleBox["n", FontSlant -> "Italic"], 
                    " Roman numerals, using ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}]]}, 
                    "Notes" -> {
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is an integer value, then the range goes from 1 to ", 
                    StyleBox["range", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945172678834*^9}}, CellTags -> "TabNext", CellID -> 
                    107622986], 
                    Cell[
                    TextData[{"If ", 
                    StyleBox["range", FontSlant -> "Italic"], 
                    " is a list of two integers {n,m}, then the range goes \
from ", 
                    StyleBox["n", FontSlant -> "Italic"], " to ", 
                    StyleBox["m", FontSlant -> "Italic"], "."}], "Notes", 
                    CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.752945139213561*^9, 
                    3.752945229102031*^9}}, CellTags -> "TabNext", CellID -> 
                    201169564]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["yhzwf_shm", 3, 1]], 131], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
5bb/5bb42699-7257-4d99-8eca-7c29bb7a85eb/download/DefinitionData"], 
                    "ShortName" -> "RandomRomanNumeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/Resources/\
5bb/5bb42699-7257-4d99-8eca-7c29bb7a85eb"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                   RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"], SelectWithContents -> True], 
                    "]"}]]}, "ClickToCopyTemplate"]]}}], "", 
             Style[
             "Thu 24 Jan 2019 09:46:39", FontSlant -> Italic, FontColor -> 
              GrayLevel[0.5], FontSize -> 0.9 Inherited], 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "4fee4426-245e-4e2f-9345-087472d6539f"], Appearance -> None, 
               BoxID -> "4fee4426-245e-4e2f-9345-087472d6539f"], 
              "LinkHand"]}}, ItemSize -> {{
              Scaled[0.35], 
              Scaled[0.35], Fit, Automatic^2}, Automatic}, 
           Alignment -> {{Left, Left, Center, Right, Right}, Center}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Cloud object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", 
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"], SelectWithContents -> 
                    True]]}, "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Visit web page:", 
                 Hyperlink[
                  RawBoxes[
                   TagBox[
                   "\"https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral\"", Short[#, 0.75]& ]], 
                  "https://www.wolframcloud.com/objects/arnoudb/\
DeployedResources/Function/RandomRomanNumeral"]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    FrameBox[
                    TagBox[
                    GridBox[{{
                    StyleBox[
                    "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, 
                    ShowStringCharacters -> False, FontColor -> 
                    RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], 
                    FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> 
                    False], 
                    StyleBox[
                    "\"RandomRomanNumeral\"", FontColor -> 
                    RGBColor[0.2784313725490196, 0.2784313725490196, 
                    0.2784313725490196], ShowAutoStyles -> False, 
                    ShowStringCharacters -> False, FontFamily -> "Roboto", 
                    FontSize -> 0.9 Inherited, FontWeight -> Dynamic[
                    FEPrivate`If[
                    CurrentValue[Evaluatable], "DemiBold", Plain]], 
                    StripOnInput -> False]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                    Background -> 
                    RGBColor[
                    0.9686274509803922, 0.9686274509803922, 
                    0.9686274509803922], ContentPadding -> False, 
                    FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[
                    Thickness[1], 
                    RGBColor[
                    0.8627450980392157, 0.8627450980392157, 
                    0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> 
                    False, Selectable -> False], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]]], Selectable -> False], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"RandomRomanNumeral\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Gives a randomly generated Roman numeral\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"5bb42699-7257-4d99-8eca-7c29bb7a85eb\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "RandomRomanNumeral", "UUID" -> 
                    "5bb42699-7257-4d99-8eca-7c29bb7a85eb", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Gives a randomly generated Roman numeral", "SymbolName" -> 
                    "FunctionRepository`$5bb4269972574d998eca7c29bb7a85eb`\
RandomRomanNumeral", "FunctionLocation" -> None, "ShortName" -> 
                    "RandomRomanNumeral"]], Selectable -> False, Editable -> 
                    False, SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{25, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]]},
TaggingRules->{
 "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, 
  "TemplateVersion" -> "1.2.12", "StatusMessage" -> "", "AttachedHints" -> {}},
CreateCellID->True,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (January 21, 2019)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{
                  Thickness[0.022222222222222223`], {
                   FaceForm[{
                    RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                    0.}, {22.5, 0.}, {10.074, 0.}, {0., 
                    10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 
                    45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 
                    22.5}}}]}, {
                   FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                   
                   FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                    0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                    "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                    27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                    26.308999999999997`}, {21.375, 26.258000000000003`}, {
                    21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 
                    15.602}, {21.426, 15.547}, {23.828, 
                    15.315999999999999`}, {23.828, 14.242}}, {{24.578, 
                    18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {
                    24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {
                    30.203, 23.91}, {30.578, 23.539}, {30.578, 
                    23.078000000000003`}, {30.578, 18.75}, {
                    30.581999999999997`, 18.288999999999998`}, {30.207, 
                    17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 
                    17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 
                    14.242}, {31.328, 15.315999999999999`}, {33.684, 
                    15.539000000000001`}, {33.789, 15.602}, {33.789, 
                    17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 
                    26.281}, {31.328, 26.512000000000004`}, {31.328, 
                    27.586}, {36.113, 27.586}, {36.113, 
                    14.234000000000002`}}}]}}, {
                 Background -> RGBColor[0.988235, 0.419608, 0.203922], 
                  AspectRatio -> Automatic, ImageSize -> {45., 45.}, 
                  PlotRange -> {{0., 45.}, {0., 45.}}}], 
                StyleBox[
                "\"Function Resource Definition Notebook\"", FontFamily -> 
                 "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, 
                 FontColor -> GrayLevel[1], StripOnInput -> False]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
             "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
            "\[SpanFromLeft]", "\[SpanFromLeft]", 
            ItemBox[
             TemplateBox[{
               StyleBox[
               "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> 
                GrayLevel[1], StripOnInput -> False], 
               "https://resources.wolframcloud.com/FunctionRepository/"}, 
              "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
             False]}, {
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Open Sample Notebook\"", "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], "\"View a completed sample definition notebook\""}, 
              "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                
                FunctionResource`DefinitionNotebook`Private`\
viewExampleNotebook[]]), FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Style Guidelines\"", "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], "\"Coming soon\""}, "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                MessageDialog["Coming soon."]]), 
             FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], 
            TagBox[
             
             GridBox[{{"\"\"", "\"\""}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
              False, GridBoxDividers -> {
               "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> 
              RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
              "\"Preview \[DownPointer]\"", "Text", FontFamily -> 
               "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
               13, FontColor -> GrayLevel[1], StripOnInput -> False], 
              ButtonFunction :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`showProgress[
                Null]), FrameMargins -> {{1, 1}, {0, 0}}, 
              Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
              "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
             "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Preview"]), 
              "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> 
             "Queued"], 
            ActionMenuBox[
             ButtonBox[
              StyleBox[
              "\"Deploy \[DownPointer]\"", "Text", FontFamily -> 
               "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 
               13, FontColor -> GrayLevel[1], StripOnInput -> False], 
              ButtonFunction :> (Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`showProgress[
                Null]), FrameMargins -> {{1, 1}, {0, 0}}, 
              Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                  "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
              Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
              "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], {
             "\"Locally on this computer\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Local"]), 
              "\"For my cloud account\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "Cloud"]), 
              "\"Publicly in the cloud\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "CloudPublic"]), 
              "\"In this session only (without documentation)\"" :> (
               Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`getResource[
                 ButtonNotebook[], "KernelSession"])}, Appearance -> None, 
             Method -> "Queued"], 
            ItemBox[
             StyleBox[
              DynamicBox[
               ToBoxes[
                CurrentValue[
                 EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
                StandardForm]], "Text", 
              GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
             StripOnInput -> False], 
            ButtonBox[
             TemplateBox[{
               StyleBox[
                TagBox[
                 GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349206349206349], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, 
                    FaceForm[
                    RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> 
                    False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, 
                    FaceForm[
                    RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, 
                    ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> Automatic], "\"Submit to Repository\""}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                  False, GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, 
                    "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> 
                "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> 
                False], 
               "\"Submit your function to the Wolfram Function Repository\""},
               "PrettyTooltipTemplate"], 
             ButtonFunction :> (Symbol["System`ResourceFunction"]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[
                FunctionResource`DefinitionNotebook`Private`submitRepository[
                 ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h
Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89
GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A
+GMDZA==
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL
CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8
6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf
AJBwAV4=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/
E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc
CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC
jIx4IS/2yUhjJKVkUvMLAMWzMVI=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
             "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
          AutoDelete -> False, 
          GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
              RGBColor[0.988235, 0.419608, 0.203922], 
              RGBColor[0.921569, 0.341176, 0.105882]}}, 
          GridBoxFrame -> {
           "Columns" -> False, 
            "RowsIndexed" -> {
             1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> 
              RGBColor[0.921569, 0.341176, 0.105882]}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, 
          GridBoxSpacings -> {
           "Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> 
          RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]}], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> 
             False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7
3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5
uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT

                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+
thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a
knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0
8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8
FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638=
                "]}]}, 
             FaceForm[
              RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c
5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28
               "]]}, 
             FaceForm[
              RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7
3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5
uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT

                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+
thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a
knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0
8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8
FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638=
                "]}]}, 
             FaceForm[
              RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["MoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], 
           "\"Click for more information\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (If[
            MatchQ[
             CurrentValue[
              ButtonNotebook[], {TaggingRules, "AttachedCells", #}], 
             Blank[CellObject]], NotebookDelete[
              CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; 
            CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             Inherited, CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; 
            Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> 
         "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["ClickToCopyTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
           GridBox[{{#, 
              ButtonBox[
               GraphicsBox[{
                 GrayLevel[0.85], 
                 Thickness[
                  NCache[2/45, 0.044444444444444446`]], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
                   9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 
                   18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
                   16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
                   15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
                   8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 
                   16.5}, {9.75, 16.5}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
                  14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
                  14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 
                  9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 
                  7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, 
                ImageSize -> 12], ButtonFunction :> Null, 
               Appearance -> {
                "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
               Evaluator -> Automatic, Method -> "Preemptive"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
             AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> 
         DynamicModuleBox[{
           FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 
            0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\
$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[
                    AbsoluteTime[] - 
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Mouseover[
                    Graphics[{
                    GrayLevel[0.65], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], 
                    Graphics[{
                    RGBColor[0.988235, 0.419608, 0.203922], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12]], 
                    "Click to copy to the clipboard"], 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Graphics[{
                    RGBColor[0, 2/3, 0], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 
                    1, TrackedSymbols :> {
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$}], StandardForm]], 
                 ButtonFunction :> (
                  FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> Automatic], 
                MouseAppearanceTag["LinkHand"]]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
           DynamicModuleValues :> {}]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["PrettyTooltipTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        TooltipBox[#, 
         FrameBox[
          
          StyleBox[#2, "Text", FontColor -> 
           RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> 
           "Plain", StripOnInput -> False], Background -> 
          RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, 
          StripOnInput -> False], TooltipDelay -> 0.1, 
         TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, 
         Framed[
          Style[
          FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, 
           "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], 
           FontSize -> 12, FontWeight -> "Plain"], Background -> 
          RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], 
         "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ExampleGroupOpenerTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[
        ToBoxes[
         If[
          MatchQ[
           CurrentValue[
            EvaluationNotebook[], {TaggingRules, "Openers", #, #2}, Closed], 
           Alternatives[True, Open]], 
          Style[
           Graphics[{
             Thickness[0.18], 
             RGBColor[0.8509803921568627, 0.396078431372549, 0], 
             Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
            PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
           0.68 Inherited], 
          Rotate[
           Style[
            Graphics[{
              Thickness[0.18], 
              RGBColor[0.8509803921568627, 0.396078431372549, 0], 
              Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
             PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
            0.68 Inherited], Pi/2, {-1.65, -1}]], StandardForm]]& )}], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> 
    False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, 
    LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", 
    FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], 
   Cell[
    StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], 
    CellMargins -> {{86, 10}, {7, 0}}, 
    StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> 
    "OutputGrouping", 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell[
           BoxData[""], "UsageInputs"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> 
    False], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], 
    StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> 
    False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["Text"], ContextMenu -> {
      MenuItem["Cu&t", "Cut"], 
      MenuItem["&Copy", "Copy"], 
      MenuItem["&Paste", 
       FrontEnd`Paste[After]], 
      Menu["Cop&y As", {
        MenuItem["Plain &Text", 
         FrontEnd`CopySpecial["PlainText"]], 
        MenuItem["&Input Text", 
         FrontEnd`CopySpecial["InputText"]], 
        MenuItem["&LaTeX", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], 
        MenuItem["M&athML", 
         KernelExecute[
          ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> 
         Automatic], Delimiter, 
        MenuItem["Cell &Object", 
         FrontEnd`CopySpecial["CellObject"]], 
        MenuItem["&Cell Expression", 
         FrontEnd`CopySpecial["CellExpression"]], 
        MenuItem["&Notebook Expression", 
         FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, 
      MenuItem["Format as Template Input", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], 
       MenuEvaluator -> Automatic], 
      MenuItem["Format as Code", 
       KernelExecute[
        ToExpression[
        "System`ResourceFunction; \
FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\
], MenuEvaluator -> Automatic], Delimiter, 
      MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], 
      MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], 
      MenuItem["Chec&k Spelling...", "FindNextMisspelling"], 
      Menu["Citatio&n", {
        MenuItem[
        "Insert Bibliographical &Reference...", "InsertBibReference"], 
        MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], 
        Delimiter, 
        MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], 
        MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], 
        MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], 
        MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], 
      Delimiter, 
      Menu["Sty&le", {
        MenuItem[
        "Start Cell Style Names", "MenuListStyles", MenuAnchor -> True], 
        Delimiter, 
        MenuItem["&Other...", "StyleOther"]}], Delimiter, 
      MenuItem["Create Inline Cell", "CreateInlineCell"], 
      MenuItem["Di&vide Cell", "CellSplit"], 
      MenuItem["Evaluate &in Place", All], Delimiter, 
      MenuItem["Toggle &Full Screen", 
       FrontEndExecute[
        FrontEnd`Value[
         FEPrivate`NotebookToggleFullScreen[]]]]}], 
   Cell[
    StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], 
    CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], 
    StyleMenuListing -> None, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    GridBoxOptions -> {
     FrameStyle -> GrayLevel[0.906], 
      GridBoxAlignment -> {
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, 
      GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], 
   Cell[
    StyleData["TableText"], DefaultInlineFormatType -> 
    "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Hyperlink"], FontColor -> 
    RGBColor[0.921569, 0.341176, 0.105882]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.614379, 0.227451, 0.0705882]], 
   Cell[
    StyleData["InlineFormula"], FontSize -> 0.99 Inherited], 
   Cell[
    StyleData["ExampleDelimiter"], ShowCellBracket -> Automatic, 
    CellMargins -> {{66, 14}, {-5, 0}}, 
    CellGroupingRules -> {"SectionGrouping", 58}, ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {76}, StyleMenuListing -> 
    None, FontFamily -> "Verdana", FontSize -> 9, FontWeight -> "Plain", 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], 
   Cell[
    StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], 
   Cell[
    StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
     Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, 
    CellMargins -> {{66, 14}, {15, -5}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> 
    GrayLevel[
      Rational[77, 85]]], 
   Cell[
    StyleData["Subsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   Cell[
    StyleData["Subsubsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False]},
   Visible -> False, FrontEndVersion -> 
  "12.0 for Microsoft Windows (64-bit) (January 21, 2019)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Definition"->{
  Cell[558, 20, 990, 22, 67, "Section",ExpressionUUID->"072aa288-6ca3-4eee-a1cb-e4b16779df78",
   CellTags->"Definition",
   CellID->608264297],
  Cell[11853, 311, 945, 20, 67, "Section",ExpressionUUID->"2d1e81e8-f48d-4ac6-944a-bed18cabef23",
   CellTags->"Definition",
   CellID->40452676]},
 "Documentation"->{
  Cell[1573, 46, 154, 3, 53, "Section",ExpressionUUID->"c715c3f8-c8ed-4332-893a-567034d1eef6",
   CellTags->"Documentation",
   CellID->855965831],
  Cell[13558, 351, 135, 2, 67, "Section",ExpressionUUID->"b11c59dd-3adc-46be-8361-83927e8dca25",
   CellTags->"Documentation",
   CellID->491847979]},
 "Usage"->{
  Cell[1730, 51, 896, 21, 53, "Subsection",ExpressionUUID->"e76b93aa-2d83-4156-becf-6a2a21a33b33",
   CellTags->"Usage",
   CellID->694807545],
  Cell[13718, 357, 858, 20, 53, "Subsection",ExpressionUUID->"aed34a7c-93b3-4b60-9c43-e96895873334",
   CellTags->"Usage",
   CellID->253280348]},
 "Details & Options"->{
  Cell[2629, 74, 927, 21, 37, "Subsection",ExpressionUUID->"326d19d1-a093-450d-8f0f-06eb7d859541",
   CellTags->"Details & Options",
   CellID->29639701],
  Cell[16603, 446, 884, 19, 53, "Subsection",ExpressionUUID->"ee43ed8f-02b3-4549-b953-996350822973",
   CellTags->"Details & Options",
   CellID->123126086]},
 "Examples"->{
  Cell[3571, 98, 1026, 22, 67, "Section",ExpressionUUID->"89afe010-d634-4ade-a588-eb6cead8d3bc",
   CellTags->"Examples",
   CellID->847663398],
  Cell[19115, 515, 853, 19, 67, "Section",ExpressionUUID->"20c05db3-a710-46d4-8708-ebf20ef27b75",
   CellTags->"Examples",
   CellID->163631071]},
 "Source & Additional Information"->{
  Cell[4622, 124, 190, 3, 53, "Section",ExpressionUUID->"1ee54c9a-4450-465c-be0e-9eb3a4cbf44e",
   CellTags->"Source & Additional Information",
   CellID->318391102],
  Cell[23297, 628, 171, 2, 67, "Section",ExpressionUUID->"63baeb6f-0156-401f-93cc-82e5bf6761ba",
   CellTags->"Source & Additional Information",
   CellID->127601628]},
 "Contributed By"->{
  Cell[4815, 129, 785, 19, 53, "Subsection",ExpressionUUID->"d27f5e6f-9f60-452b-bca5-4b8264657197",
   CellTags->"Contributed By",
   CellID->757508554],
  Cell[23493, 634, 747, 18, 53, "Subsection",ExpressionUUID->"ded7ca1c-9d21-4cc4-9397-fde4c2fb019f",
   CellTags->"Contributed By",
   CellID->193619321]},
 "Keywords"->{
  Cell[5603, 150, 738, 19, 37, "Subsection",ExpressionUUID->"964efffa-0617-40b5-8b87-13d3b5326d99",
   CellTags->"Keywords",
   CellID->246422893],
  Cell[25025, 671, 693, 17, 53, "Subsection",ExpressionUUID->"c2606896-898c-482f-8125-bde4d5bf9b93",
   CellTags->"Keywords",
   CellID->56929831]},
 "Related Symbols"->{
  Cell[6344, 171, 775, 19, 37, "Subsection",ExpressionUUID->"c40e6377-3cd9-4c7d-b096-dd764131f6a3",
   CellTags->"Related Symbols",
   CellID->911170439]},
 "Related Resource Objects"->{
  Cell[7122, 192, 815, 19, 37, "Subsection",ExpressionUUID->"0dde8342-f61a-4ff4-8b54-87ff57be0acd",
   CellTags->"Related Resource Objects",
   CellID->217060377],
  Cell[26277, 703, 777, 18, 53, "Subsection",ExpressionUUID->"8858e9d4-3bcd-42c5-a8fa-0d66cd5e6b32",
   CellTags->"Related Resource Objects",
   CellID->234336100]},
 "Source/Reference Citation"->{
  Cell[7940, 213, 868, 20, 37, "Subsection",ExpressionUUID->"3ca18554-171e-4931-adee-a5834633dfb8",
   CellTags->"Source/Reference Citation",
   CellID->967310595],
  Cell[27651, 736, 822, 18, 53, "Subsection",ExpressionUUID->"6e952024-3645-495c-a6fc-008122cb4b4e",
   CellTags->"Source/Reference Citation",
   CellID->4373816]},
 "Links"->{
  Cell[8811, 235, 710, 18, 37, "Subsection",ExpressionUUID->"8e1df5b4-b7da-4700-a4f5-a6b70dda4b80",
   CellTags->"Links",
   CellID->593846556],
  Cell[29064, 769, 672, 17, 53, "Subsection",ExpressionUUID->"cdcc4e47-3c86-4fbd-853e-e2ee12723c61",
   CellTags->"Links",
   CellID->443077927]},
 "Tests"->{
  Cell[9524, 255, 880, 21, 37, "Subsection",ExpressionUUID->"e393b6fc-8cfe-4490-89f3-4ce9bc40038e",
   CellTags->"Tests",
   CellID->16051757],
  Cell[30315, 801, 837, 19, 53, "Subsection",ExpressionUUID->"bca4c195-a2da-4e7c-97bb-dffd30b72e5f",
   CellTags->"Tests",
   CellID->349784570]},
 "Notes"->{
  Cell[10419, 279, 168, 4, 67, "Section",ExpressionUUID->"d279b7a3-f4bf-43ac-ab4f-d390c104ee84",
   CellTags->"Notes",
   CellID->694045252],
  Cell[31551, 838, 149, 3, 67, "Section",ExpressionUUID->"319b933f-9716-423d-85c3-4f78c40af01d",
   CellTags->"Notes",
   CellID->359397282]},
 "Title"->{
  Cell[10612, 287, 581, 9, 70, "Title",ExpressionUUID->"13edfa22-5410-4c30-85d3-b6541b29b900",
   CellTags->{"Title", "TabNext"},
   CellID->18217985]},
 "TabNext"->{
  Cell[10612, 287, 581, 9, 70, "Title",ExpressionUUID->"13edfa22-5410-4c30-85d3-b6541b29b900",
   CellTags->{"Title", "TabNext"},
   CellID->18217985],
  Cell[11196, 298, 632, 9, 34, "Text",ExpressionUUID->"23a34cb1-3ca2-4f82-a965-0f354311f22d",
   CellTags->{"Description", "TabNext"},
   CellID->27787318],
  Cell[12801, 333, 720, 13, 28, "Input",ExpressionUUID->"484dc103-7ef1-4c30-ab3f-f9d6a53e97f8",
   CellTags->"TabNext",
   CellID->206237809],
  Cell[14601, 381, 263, 5, 26, "UsageInputs",ExpressionUUID->"aab8cd8f-7c14-4451-9fd4-3d22a9bd94df",
   CellTags->"TabNext",
   CellID->373593035],
  Cell[14867, 388, 275, 4, 26, "UsageDescription",ExpressionUUID->"9d2b2691-3452-4b91-a595-8931550b8d62",
   CellTags->"TabNext",
   CellID->38868309],
  Cell[15179, 397, 334, 7, 26, "UsageInputs",ExpressionUUID->"0464179c-d1dc-446c-bdb9-23ae1ded379e",
   CellTags->"TabNext",
   CellID->327278934],
  Cell[15516, 406, 312, 8, 26, "UsageDescription",ExpressionUUID->"0d727e18-e288-451e-a9b5-b834bc666cc3",
   CellTags->"TabNext",
   CellID->679413592],
  Cell[15865, 419, 355, 8, 26, "UsageInputs",ExpressionUUID->"daa580b3-7a9c-45b1-b017-c1f6442f01dd",
   CellTags->"TabNext",
   CellID->618558083],
  Cell[16223, 429, 331, 11, 26, "UsageDescription",ExpressionUUID->"d5eadbf7-a4fe-4273-bbaf-2bed071956dc",
   CellTags->"TabNext",
   CellID->438097359],
  Cell[17512, 469, 744, 17, 31, "Notes",ExpressionUUID->"1e32b60b-5afb-4ff0-9ecc-eca7480d47dd",
   CellTags->"TabNext",
   CellID->107622986],
  Cell[18259, 488, 795, 20, 31, "Notes",ExpressionUUID->"14f4d6a3-b2d6-49a6-9c45-0eb059abf6e0",
   CellTags->"TabNext",
   CellID->201169564],
  Cell[24243, 654, 745, 12, 34, "Text",ExpressionUUID->"bc5ccf28-4f53-4986-882c-f5a4f593e7cf",
   CellTags->"TabNext",
   CellID->268773406],
  Cell[25721, 690, 519, 8, 31, "Item",ExpressionUUID->"ec398385-3224-451b-bbc2-4e3988d8c748",
   CellTags->"TabNext",
   CellID->286151546],
  Cell[27057, 723, 557, 8, 31, "Item",ExpressionUUID->"29ccaaa0-e113-45ac-a4b8-f0597e627ec1",
   CellTags->"TabNext",
   CellID->96811861],
  Cell[28476, 756, 551, 8, 34, "Text",ExpressionUUID->"ca73813b-1eff-446c-8c5f-c3e5e76f47e6",
   CellTags->"TabNext",
   CellID->122131667],
  Cell[29739, 788, 539, 8, 31, "Item",ExpressionUUID->"73fb7d03-db0d-4990-9f36-53dc5dc235ad",
   CellTags->"TabNext",
   CellID->70093026]},
 "Description"->{
  Cell[11196, 298, 632, 9, 34, "Text",ExpressionUUID->"23a34cb1-3ca2-4f82-a965-0f354311f22d",
   CellTags->{"Description", "TabNext"},
   CellID->27787318]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Definition", 235261, 4642},
 {"Documentation", 235574, 4649},
 {"Usage", 235885, 4656},
 {"Details & Options", 236200, 4663},
 {"Examples", 236529, 4670},
 {"Source & Additional Information", 236859, 4677},
 {"Contributed By", 237216, 4684},
 {"Keywords", 237541, 4691},
 {"Related Symbols", 237860, 4698},
 {"Related Resource Objects", 238047, 4702},
 {"Source/Reference Citation", 238409, 4709},
 {"Links", 238751, 4716},
 {"Tests", 239055, 4723},
 {"Notes", 239358, 4730},
 {"Title", 239655, 4737},
 {"TabNext", 239822, 4741},
 {"Description", 242186, 4790}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 990, 22, 67, "Section",ExpressionUUID->"072aa288-6ca3-4eee-a1cb-e4b16779df78",
 CellTags->"Definition",
 CellID->608264297],
Cell[CellGroupData[{
Cell[1573, 46, 154, 3, 53, "Section",ExpressionUUID->"c715c3f8-c8ed-4332-893a-567034d1eef6",
 CellTags->"Documentation",
 CellID->855965831],
Cell[1730, 51, 896, 21, 53, "Subsection",ExpressionUUID->"e76b93aa-2d83-4156-becf-6a2a21a33b33",
 CellTags->"Usage",
 CellID->694807545],
Cell[2629, 74, 927, 21, 37, "Subsection",ExpressionUUID->"326d19d1-a093-450d-8f0f-06eb7d859541",
 CellTags->"Details & Options",
 CellID->29639701]
}, Open  ]],
Cell[3571, 98, 1026, 22, 67, "Section",ExpressionUUID->"89afe010-d634-4ade-a588-eb6cead8d3bc",
 CellTags->"Examples",
 CellID->847663398],
Cell[CellGroupData[{
Cell[4622, 124, 190, 3, 53, "Section",ExpressionUUID->"1ee54c9a-4450-465c-be0e-9eb3a4cbf44e",
 CellTags->"Source & Additional Information",
 CellID->318391102],
Cell[4815, 129, 785, 19, 53, "Subsection",ExpressionUUID->"d27f5e6f-9f60-452b-bca5-4b8264657197",
 CellTags->"Contributed By",
 CellID->757508554],
Cell[5603, 150, 738, 19, 37, "Subsection",ExpressionUUID->"964efffa-0617-40b5-8b87-13d3b5326d99",
 CellTags->"Keywords",
 CellID->246422893],
Cell[6344, 171, 775, 19, 37, "Subsection",ExpressionUUID->"c40e6377-3cd9-4c7d-b096-dd764131f6a3",
 CellTags->"Related Symbols",
 CellID->911170439],
Cell[7122, 192, 815, 19, 37, "Subsection",ExpressionUUID->"0dde8342-f61a-4ff4-8b54-87ff57be0acd",
 CellTags->"Related Resource Objects",
 CellID->217060377],
Cell[7940, 213, 868, 20, 37, "Subsection",ExpressionUUID->"3ca18554-171e-4931-adee-a5834633dfb8",
 CellTags->"Source/Reference Citation",
 CellID->967310595],
Cell[8811, 235, 710, 18, 37, "Subsection",ExpressionUUID->"8e1df5b4-b7da-4700-a4f5-a6b70dda4b80",
 CellTags->"Links",
 CellID->593846556],
Cell[9524, 255, 880, 21, 37, "Subsection",ExpressionUUID->"e393b6fc-8cfe-4490-89f3-4ce9bc40038e",
 CellTags->"Tests",
 CellID->16051757]
}, Open  ]],
Cell[10419, 279, 168, 4, 67, "Section",ExpressionUUID->"d279b7a3-f4bf-43ac-ab4f-d390c104ee84",
 CellTags->"Notes",
 CellID->694045252],
Cell[CellGroupData[{
Cell[10612, 287, 581, 9, 70, "Title",ExpressionUUID->"13edfa22-5410-4c30-85d3-b6541b29b900",
 CellTags->{"Title", "TabNext"},
 CellID->18217985],
Cell[11196, 298, 632, 9, 34, "Text",ExpressionUUID->"23a34cb1-3ca2-4f82-a965-0f354311f22d",
 CellTags->{"Description", "TabNext"},
 CellID->27787318],
Cell[CellGroupData[{
Cell[11853, 311, 945, 20, 67, "Section",ExpressionUUID->"2d1e81e8-f48d-4ac6-944a-bed18cabef23",
 CellTags->"Definition",
 CellID->40452676],
Cell[12801, 333, 720, 13, 28, "Input",ExpressionUUID->"484dc103-7ef1-4c30-ab3f-f9d6a53e97f8",
 CellTags->"TabNext",
 CellID->206237809]
}, Open  ]],
Cell[CellGroupData[{
Cell[13558, 351, 135, 2, 67, "Section",ExpressionUUID->"b11c59dd-3adc-46be-8361-83927e8dca25",
 CellTags->"Documentation",
 CellID->491847979],
Cell[CellGroupData[{
Cell[13718, 357, 858, 20, 53, "Subsection",ExpressionUUID->"aed34a7c-93b3-4b60-9c43-e96895873334",
 CellTags->"Usage",
 CellID->253280348],
Cell[CellGroupData[{
Cell[14601, 381, 263, 5, 26, "UsageInputs",ExpressionUUID->"aab8cd8f-7c14-4451-9fd4-3d22a9bd94df",
 CellTags->"TabNext",
 CellID->373593035],
Cell[14867, 388, 275, 4, 26, "UsageDescription",ExpressionUUID->"9d2b2691-3452-4b91-a595-8931550b8d62",
 CellTags->"TabNext",
 CellID->38868309]
}, Open  ]],
Cell[CellGroupData[{
Cell[15179, 397, 334, 7, 26, "UsageInputs",ExpressionUUID->"0464179c-d1dc-446c-bdb9-23ae1ded379e",
 CellTags->"TabNext",
 CellID->327278934],
Cell[15516, 406, 312, 8, 26, "UsageDescription",ExpressionUUID->"0d727e18-e288-451e-a9b5-b834bc666cc3",
 CellTags->"TabNext",
 CellID->679413592]
}, Open  ]],
Cell[CellGroupData[{
Cell[15865, 419, 355, 8, 26, "UsageInputs",ExpressionUUID->"daa580b3-7a9c-45b1-b017-c1f6442f01dd",
 CellTags->"TabNext",
 CellID->618558083],
Cell[16223, 429, 331, 11, 26, "UsageDescription",ExpressionUUID->"d5eadbf7-a4fe-4273-bbaf-2bed071956dc",
 CellTags->"TabNext",
 CellID->438097359]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16603, 446, 884, 19, 53, "Subsection",ExpressionUUID->"ee43ed8f-02b3-4549-b953-996350822973",
 CellTags->"Details & Options",
 CellID->123126086],
Cell[CellGroupData[{
Cell[17512, 469, 744, 17, 31, "Notes",ExpressionUUID->"1e32b60b-5afb-4ff0-9ecc-eca7480d47dd",
 CellTags->"TabNext",
 CellID->107622986],
Cell[18259, 488, 795, 20, 31, "Notes",ExpressionUUID->"14f4d6a3-b2d6-49a6-9c45-0eb059abf6e0",
 CellTags->"TabNext",
 CellID->201169564]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19115, 515, 853, 19, 67, "Section",ExpressionUUID->"20c05db3-a710-46d4-8708-ebf20ef27b75",
 CellTags->"Examples",
 CellID->163631071],
Cell[CellGroupData[{
Cell[19993, 538, 111, 1, 53, "Subsection",ExpressionUUID->"0c65e9f1-9a1b-483b-8786-8630d567a04b",
 CellID->285421464],
Cell[20107, 541, 204, 2, 34, "Text",ExpressionUUID->"669c0914-5de2-4d8b-a819-a025cc2deece",
 CellID->221583938],
Cell[CellGroupData[{
Cell[20336, 547, 204, 4, 28, "Input",ExpressionUUID->"8914f6c3-acad-46a3-83e2-53dd6fc3ce0e",
 CellID->7099978],
Cell[20543, 553, 203, 3, 32, "Output",ExpressionUUID->"74f2241b-c839-4a02-bafa-1a4167ce9680",
 CellID->919745518]
}, Open  ]],
Cell[20761, 559, 206, 2, 34, "Text",ExpressionUUID->"e9ed8dda-c44a-4424-be5e-7fdeaa92b1f5",
 CellID->759031651],
Cell[CellGroupData[{
Cell[20992, 565, 263, 5, 28, "Input",ExpressionUUID->"ee53c857-1bd1-449f-bacc-a6d459391b1c",
 CellID->10280817],
Cell[21258, 572, 234, 4, 32, "Output",ExpressionUUID->"c7eac5f8-ac85-4a96-97cb-591100000aee",
 CellID->785075825]
}, Open  ]],
Cell[21507, 579, 205, 2, 34, "Text",ExpressionUUID->"35dd5d6c-00bb-45f6-977e-7cfde68fadff",
 CellID->934327856],
Cell[CellGroupData[{
Cell[21737, 585, 341, 7, 28, "Input",ExpressionUUID->"c46c20c3-374e-48fe-bd5f-68eeecfa5b9a",
 CellID->11970743],
Cell[22081, 594, 485, 9, 32, "Output",ExpressionUUID->"6d4525e5-82c9-4fa5-9745-570d35305410",
 CellID->289327720]
}, Open  ]]
}, Open  ]],
Cell[22593, 607, 102, 1, 53, "Subsection",ExpressionUUID->"0812d384-216c-4882-8e65-f512876d176c",
 CellID->267254639],
Cell[22698, 610, 102, 1, 37, "Subsection",ExpressionUUID->"2edd7383-cc2d-4c1a-8948-ee3ee2586c9e",
 CellID->1575259],
Cell[22803, 613, 108, 1, 37, "Subsection",ExpressionUUID->"7456a079-523c-431e-b2b7-73943cab878a",
 CellID->20767984],
Cell[22914, 616, 121, 1, 37, "Subsection",ExpressionUUID->"c0b37364-009b-4878-aefa-a48398570da0",
 CellID->461307998],
Cell[23038, 619, 111, 1, 37, "Subsection",ExpressionUUID->"9c327120-bfb3-4108-8868-c4a45a39cf42",
 CellID->95944414],
Cell[23152, 622, 108, 1, 37, "Subsection",ExpressionUUID->"d85116ea-7795-4552-baf2-14a2de729190",
 CellID->5316679]
}, Open  ]],
Cell[CellGroupData[{
Cell[23297, 628, 171, 2, 67, "Section",ExpressionUUID->"63baeb6f-0156-401f-93cc-82e5bf6761ba",
 CellTags->"Source & Additional Information",
 CellID->127601628],
Cell[CellGroupData[{
Cell[23493, 634, 747, 18, 53, "Subsection",ExpressionUUID->"ded7ca1c-9d21-4cc4-9397-fde4c2fb019f",
 CellTags->"Contributed By",
 CellID->193619321],
Cell[24243, 654, 745, 12, 34, "Text",ExpressionUUID->"bc5ccf28-4f53-4986-882c-f5a4f593e7cf",
 CellTags->"TabNext",
 CellID->268773406]
}, Open  ]],
Cell[CellGroupData[{
Cell[25025, 671, 693, 17, 53, "Subsection",ExpressionUUID->"c2606896-898c-482f-8125-bde4d5bf9b93",
 CellTags->"Keywords",
 CellID->56929831],
Cell[25721, 690, 519, 8, 31, "Item",ExpressionUUID->"ec398385-3224-451b-bbc2-4e3988d8c748",
 CellTags->"TabNext",
 CellID->286151546]
}, Open  ]],
Cell[CellGroupData[{
Cell[26277, 703, 777, 18, 53, "Subsection",ExpressionUUID->"8858e9d4-3bcd-42c5-a8fa-0d66cd5e6b32",
 CellTags->"Related Resource Objects",
 CellID->234336100],
Cell[27057, 723, 557, 8, 31, "Item",ExpressionUUID->"29ccaaa0-e113-45ac-a4b8-f0597e627ec1",
 CellTags->"TabNext",
 CellID->96811861]
}, Open  ]],
Cell[CellGroupData[{
Cell[27651, 736, 822, 18, 53, "Subsection",ExpressionUUID->"6e952024-3645-495c-a6fc-008122cb4b4e",
 CellTags->"Source/Reference Citation",
 CellID->4373816],
Cell[28476, 756, 551, 8, 34, "Text",ExpressionUUID->"ca73813b-1eff-446c-8c5f-c3e5e76f47e6",
 CellTags->"TabNext",
 CellID->122131667]
}, Open  ]],
Cell[CellGroupData[{
Cell[29064, 769, 672, 17, 53, "Subsection",ExpressionUUID->"cdcc4e47-3c86-4fbd-853e-e2ee12723c61",
 CellTags->"Links",
 CellID->443077927],
Cell[29739, 788, 539, 8, 31, "Item",ExpressionUUID->"73fb7d03-db0d-4990-9f36-53dc5dc235ad",
 CellTags->"TabNext",
 CellID->70093026]
}, Open  ]],
Cell[CellGroupData[{
Cell[30315, 801, 837, 19, 53, "Subsection",ExpressionUUID->"bca4c195-a2da-4e7c-97bb-dffd30b72e5f",
 CellTags->"Tests",
 CellID->349784570],
Cell[CellGroupData[{
Cell[31177, 824, 184, 4, 28, "Input",ExpressionUUID->"9e5e8687-9934-403e-9bc9-918fc30ee4f8",
 CellID->152812409],
Cell[31364, 830, 148, 3, 32, "Output",ExpressionUUID->"fdeb9c5b-c6a0-4074-9165-1b41d6c02490",
 CellID->111998499]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[31551, 838, 149, 3, 67, "Section",ExpressionUUID->"319b933f-9716-423d-85c3-4f78c40af01d",
 CellTags->"Notes",
 CellID->359397282]
}, Open  ]]
}
]
*)

